home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35624.lsp < prev    next >
Text File  |  1998-03-15  |  5KB  |  177 lines
  1. ;=============356.24 ABSTREIF- SCHMIERSYSTEM 6
  2.  
  3. (EAITDBL "0035624")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35624V1( / P1 Wi)
  8.    (EAITDBL "0035624")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt EAITofzen 4 nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "35624V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 168)) 35) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31. (defun C:35624V2( / P1 Wi)
  32.    (EAITDBL "0035624")
  33.    (princ (strcat "\n\n" EAITbez1))
  34.      (EAITvari)
  35.      (EAITvars)
  36.      (setvar "ORTHOMODE" 0)
  37.      (EAITbpt EAITofzen 4 nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "OSMODE" 0)
  41.      (setvar "ORTHOMODE" 1)
  42.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  43.      (command EAITege (strcat EAITpfn "35624V2") P1 "" "" EAITofkei pause)
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 22)) 35) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun V2
  54.  
  55. (defun C:35624s1( / P1 Wi)
  56.    (EAITDBL "0035624")
  57.    (princ (strcat "\n\n" EAITbez1))
  58.      (EAITvari)
  59.      (EAITvars)
  60.      (setvar "ORTHOMODE" 0)
  61.      (EAITbpt nil nil nil)
  62.      (setq P1 (getpoint))
  63.      (if (= P1 nil)(setq P1 (EAITrpt)))
  64.      (setvar "OSMODE" 0)
  65.      (setvar "ORTHOMODE" 1)
  66.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  67.      (command EAITege (strcat EAITpfn "35624s1") P1 "" "" EAITofkei pause)
  68.  
  69.      (setq Wi (EAITbw))
  70.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 128)) 7) "" "" ""
  71.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  72.      )
  73.  
  74.      (EAITvarz2)
  75.      (princ)
  76.  
  77. );defun s1
  78.  
  79. (defun C:35624S2( / P1 Wi)
  80.    (EAITDBL "0035624")
  81.    (princ (strcat "\n\n" EAITbez1))
  82.      (EAITvari)
  83.      (EAITvars)
  84.      (setvar "ORTHOMODE" 0)
  85.      (EAITbpt nil nil nil)
  86.      (setq P1 (getpoint))
  87.      (if (= P1 nil)(setq P1 (EAITrpt)))
  88.      (setvar "OSMODE" 0)
  89.      (setvar "ORTHOMODE" 1)
  90.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  91.      (command EAITege (strcat EAITpfn "35624S2") P1 "" "" EAITofkei pause)
  92.  
  93.      (setq Wi (EAITbw))
  94.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 38)) 7) "" "" ""
  95.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  96.      )
  97.  
  98.      (EAITvarz2)
  99.      (princ)
  100.  
  101. );defun S2
  102.  
  103. (defun C:35624S3( / P1 Wi)
  104.    (EAITDBL "0035624")
  105.    (princ (strcat "\n\n" EAITbez1))
  106.      (EAITvari)
  107.      (EAITvars)
  108.      (setvar "ORTHOMODE" 0)
  109.      (EAITbpt nil nil nil)
  110.      (setq P1 (getpoint))
  111.      (if (= P1 nil)(setq P1 (EAITrpt)))
  112.      (setvar "OSMODE" 0)
  113.      (setvar "ORTHOMODE" 1)
  114.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  115.      (command EAITege (strcat EAITpfn "35624S3") P1 "" "" EAITofkei pause)
  116.  
  117.      (setq Wi (EAITbw))
  118.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 128)) 7) "" "" ""
  119.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  120.      )
  121.  
  122.      (EAITvarz2)
  123.      (princ)
  124.  
  125. );defun S3
  126.  
  127. (defun C:35624S4( / P1 Wi)
  128.    (EAITDBL "0035624")
  129.    (princ (strcat "\n\n" EAITbez1))
  130.      (EAITvari)
  131.      (EAITvars)
  132.      (setvar "ORTHOMODE" 0)
  133.      (EAITbpt nil nil nil)
  134.      (setq P1 (getpoint))
  135.      (if (= P1 nil)(setq P1 (EAITrpt)))
  136.      (setvar "OSMODE" 0)
  137.      (setvar "ORTHOMODE" 1)
  138.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  139.      (command EAITege (strcat EAITpfn "35624S4") P1 "" "" EAITofkei pause)
  140.  
  141.      (setq Wi (EAITbw))
  142.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 38)) 7) "" "" ""
  143.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  144.      )
  145.  
  146.      (EAITvarz2)
  147.      (princ)
  148.  
  149. );defun S4
  150.  
  151. (defun C:35624D1( / P1 Wi)
  152.    (EAITDBL "0035624")
  153.    (princ (strcat "\n\n" EAITbez1))
  154.      (EAITvari)
  155.      (EAITvars)
  156.      (setvar "ORTHOMODE" 0)
  157.      (EAITbpt nil nil nil)
  158.      (setq P1 (getpoint))
  159.      (if (= P1 nil)(setq P1 (EAITrpt)))
  160.      (setvar "OSMODE" 0)
  161.      (setvar "ORTHOMODE" 1)
  162.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  163.      (command EAITege (strcat EAITpfn "35624D1") P1 "" "" EAITofkei pause)
  164.  
  165.      (setq Wi (EAITbw))
  166.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 335)) 12) "" "" ""
  167.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  168.      )
  169.  
  170.      (EAITvarz2)
  171.      (princ)
  172.  
  173. );defun D1
  174.  
  175.  
  176. (princ)
  177.